convert
convert(matr)
Func
Local mat,a
matràmat
For a,1,rowDim(mat)
      If mat[a,1]=true:1àmat[a,1]
      If mat[a,1]=false:0àmat[a,1]
EndFor
mat
EndFunc